home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ddutil20.arc / DEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-14  |  1KB  |  40 lines
  1. Program Demo_DDUtil_Package;
  2.  
  3. Uses Crt,DDUtils;
  4.  
  5. Var
  6.    Test1:Integer;
  7.    TChar:Char;
  8.  
  9. Begin
  10.    DirectVideo := False;
  11.    If Not DDActive Then
  12.    Begin
  13.       WriteLn('DoubleDOS not activated.  Aborting!');
  14.       Halt(0);
  15.    End;
  16.    DirectVideo := False; { Turn Off Direct Screen Writes For Multi-Tasker }
  17.    WriteLn('DoubleDOS detected.');
  18.    Test1 := Task_Number;
  19.    Case Task_Number Of
  20.         0:WriteLn('Top Memory Partition');
  21.         1:WriteLn('Bottom Memory Partition');
  22.    End;
  23.    WriteLn;
  24.    WriteLn('Giving up 110 milliseconds (for no reason).');
  25.    Give_Time(2);  { Give up 110 milliseconds }
  26.    WriteLn;
  27.    WriteLn('Current TimeSharing Is At: ');
  28.    Case Current_TimeShare Of
  29.         0:WriteLn('Visible Program Gets 70%, Invisible Gets 30% (Default)');
  30.         1:WriteLn('Visible Program Gets 50%, Invisible Gets 50% of Time.');
  31.         2:WriteLn('Visible Program Gets 30%, Invisible Gets 70% of Time.');
  32.         3:WriteLn('Top Program Gets 70%, Bottom Program Gets 30% of Time.');
  33.         4:WriteLn('Top Program Gets 30%, Bottom Program Gets 70% of Time.');
  34.    End;
  35.    WriteLn;
  36.    WriteLn('Press A Key To Switch Partitions.');
  37.    TChar := ReadKey;
  38.    Switch;
  39. End.
  40.